<text>on convertClipData text global gProgramData if char 1 of line 1 of text is "*" then delete line 1 of text put empty into prgData repeat with i = 1 to the number of lines of text if item 1 of line i of text is "CAV" or item 1 of line i of textツャ is "CLV" then put item 7 to (the number of items of line i of text) of ツャ line i of text & tab & item 4 of line i of text & tab &ツャ item 5 of line i of text & return after prgData end if end repeat if prgData is empty then answer "テツアテテε液テ院テ韻テ嘉」テ窶ヲテテ畢Dテテε映テ [テ運テ [テ邃「テ窶 テテ凝窶ケテマ\テテ津③" return false end if put prgData into gProgramData else beep answer "テツアテテε液テ院テ韻テ嘉」テテ陛丑テ嘉、テ叡テ益テ液テ院テ韻テ嘉」テ竕暗テ陛窶 テテ凝窶ケテマ\テテ津③" return false end ifend convertClipData</text>
</content>
<content>
<layer>background</layer>
<id>4</id>
<text>on convertClipData text global gProgramData put line 1 of text into cl put false into flag if char 1 of cl is "*" then put 2 into flag else if the number of items of cl is 7 and item 4 of cl is a integer and item 5 of cl is a integer then put 1 into flag end if if flag is not false then put empty into prgData repeat with i = flag to the number of lines of text if item 1 of line i of text is "CAV" or item 1 of line i of text is "CLV" then put item 7 to (the number of items of line i of text) of ツャ line i of text & tab & item 4 of line i of text & tab &ツャ item 5 of line i of text & return after prgData end if end repeat if prgData is empty then answer "テツアテテε液テ院テ韻テ嘉」テ窶ヲテテ畢Dテテε映テ [テ運テ [テ邃「テ窶 テテ凝窶ケテマ\テテ津③" return false end if put prgData into gProgramData else beep answer "テツアテテε液テ院テ韻テ嘉」テテ陛丑テ嘉、テ叡テ益テ液テ院テ韻テ嘉」テ竕暗テ陛窶 テテ凝窶ケテマ\テテ津③" return false end ifend convertClipData</text>
</content>
<content>
<layer>background</layer>
<id>6</id>
<text><span class="style2">4,79</span></text>
</content>
<name></name>
<script></script>
</card>
card_8406.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text> get visca("powerOn",n) if item 1 of line n of vboxInfo <> "CI1000" then next repeat get visca("zoomWide",n)</text>
</content>
<content>
<layer>background</layer>
<id>6</id>
<text><span class="style2">36,438</span></text>
</content>
<content>
<layer>background</layer>
<id>4</id>
<text> get visca("powerOn",n) -- if item 1 of line n of vboxInfo <> "CI1000" then next repeat -- patched by Hiroshi Hoshi (93/5/20) if item 1 of line n of vboxInfo <> "CI1000" and item 1 of line n of vboxInfo <> "CI1100"then next repeat get visca("zoomWide",n)</text>
</content>
<content>
<layer>background</layer>
<id>8</id>
<text><span class="style2">.02</span></text>
</content>
<name></name>
<script></script>
</card>
card_8994.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text> if model = "0101" then --CI1000 put "CI1000,?,CTLS,?" into line n of vboxInfo -- add -- patched by Hiroshi Hoshi(93/5/20) else if model = "0102" then --CI1100 put "CI1100,?,CTLS,?" into line n of vboxInfo -- add end else if model = "0202" then --CVD-1000 put "MD_CVD1000,?,?,?" into line n of vboxInfo setUpCVD1000 n else put "?,?,?,?" into line n of vboxInfo end if</text>
</content>
<content>
<layer>background</layer>
<id>3</id>
<text> if model = "0101" then --CI1000 put "CI1000,?,CTLS,?" into line n of vboxInfo else if model = "0202" then --CVD-1000 put "MD_CVD1000,?,?,?" into line n of vboxInfo setUpCVD1000 n else put "?,?,?,?" into line n of vboxInfo end if</text>
</content>
<content>
<layer>background</layer>
<id>8</id>
<text><span class="style2">.02</span></text>
</content>
<content>
<layer>background</layer>
<id>6</id>
<text><span class="style2">43,550</span></text>
</content>
<name></name>
<script></script>
</card>
card_6550.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style2">ard field id 10</span></text>
</content>
<content>
<layer>background</layer>
<id>3</id>
<text>on mousedown put "テツサテツオ;(-;1テッb" into mitem get the clickloc add 5 to item 1 of it add 5 to item 2 of it get popup(mitem,it) if it is 1 then put 0 into me else if it is 3 then put 1 into me end if setend mousedownon set get me if it is not a integer then get getafterroll() if getclipMedia() contains "CD" then get round(it/75) else get round(it/30) end if put it into me else setafterroll(me) end ifend set</text>
</content>
<content>
<layer>background</layer>
<id>4</id>
<text>on mousedown put "テツサテツオ,(-,1テッb" into mitem get the clickloc add 5 to item 1 of it add 5 to item 2 of it get popup(mitem,it) if it is 1 then put 0 into me else if it is 3 then put 1 into me end if setend mousedownon set get me if it is not a integer then get getafterroll() if getclipMedia() contains "CD" then get round(it/75) else get round(it/30) end if put it into me else setafterroll(me) end ifend set</text>
</content>
<content>
<layer>background</layer>
<id>5</id>
<text>QuickTime Extension</text>
</content>
<content>
<layer>background</layer>
<id>8</id>
<text><span class="style2">.01</span></text>
</content>
<name></name>
<script></script>
</card>
card_6241.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style2">ard field id 9</span></text>
</content>
<content>
<layer>background</layer>
<id>3</id>
<text>on mousedown put "テツサテツオ;(-;1テッb;3テッb;5テッb" into mitem get the clickloc add 5 to item 1 of it add 5 to item 2 of it get popup(mitem,it) if it is 1 then put 0 into me else if it is 3 then put 1 into me else if it is 4 then put 3 into me else if it is 5 then put 5 into me end if setend mousedownon set get me if it is not a integer then get getpreroll() if getclipMedia() contains "CD" then get round(it/75) else get round(it/30) end if put it into me else setpreroll(me) end ifend set</text>
</content>
<content>
<layer>background</layer>
<id>4</id>
<text>on mousedown put "テツサテツオ,(-,1テッb,3テッb,5テッb" into mitem get the clickloc add 5 to item 1 of it add 5 to item 2 of it get popup(mitem,it) if it is 1 then put 0 into me else if it is 3 then put 1 into me else if it is 4 then put 3 into me else if it is 5 then put 5 into me end if setend mousedownon set get me if it is not a integer then get getpreroll() if getclipMedia() contains "CD" then get round(it/75) else get round(it/30) end if put it into me else setpreroll(me) end ifend set</text>
</content>
<content>
<layer>background</layer>
<id>8</id>
<text><span class="style2">.01</span></text>
</content>
<content>
<layer>background</layer>
<id>5</id>
<text>QuickTime Extension</text>
</content>
<name></name>
<script></script>
</card>
card_6078.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style2">ard field id 24</span></text>
</content>
<content>
<layer>background</layer>
<id>3</id>
<text>on mouseDown put the clickloc into xy add 5 to item 1 of xy add -8 to item 2 of xy get popup("11kHz;22kHz",xy) if it is 0 then exit mouseDown if it is 1 then put "11kHz" into me setsoundrate("11k") if there is not a window "grab window" then exit mouseDown set soundrate of window "grab window" to "11k" else if it is 2 then put "22kHz" into me setsoundrate("22k") if there is not a window "grab window" then exit mouseDown set soundrate of window "grab window" to "22k" end ifend mouseDown</text>
</content>
<content>
<layer>background</layer>
<id>4</id>
<text>on mouseDown put the clickloc into xy add 5 to item 1 of xy add -8 to item 2 of xy get popup("11kHz,22kHz",xy) if it is 0 then exit mouseDown if it is 1 then put "11kHz" into me setsoundrate("11k") if there is not a window "grab window" then exit mouseDown set soundrate of window "grab window" to "11k" else if it is 2 then put "22kHz" into me setsoundrate("22k") if there is not a window "grab window" then exit mouseDown set soundrate of window "grab window" to "22k" end ifend mouseDown</text>
</content>
<content>
<layer>background</layer>
<id>5</id>
<text>QuickTime Extension</text>
</content>
<content>
<layer>background</layer>
<id>8</id>
<text><span class="style2">.01</span></text>
</content>
<name></name>
<script></script>
</card>
card_5727.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>on mouseDown put sounddigitizerinfo() into lists if lists is empty then put empty into me exit mouseDown end if repeat with i = 1 to the number of lines of lists put item 1 of line i of lists into line i of lists end repeat put replace(return,";",lists) into lists put the clickloc into xy add 5 to item 1 of xy add -8 to item 2 of xy get popup(lists,xy) if it is 0 then exit mouseDown put replace(";",return,lists) into lists put line it of lists into me setsounddigitizer(me) if there is not a window "grab window" then exit mouseDown set sounddigitizer of window "grab window" to meend mouseDown</text>
</content>
<content>
<layer>background</layer>
<id>1</id>
<text>4414</text>
</content>
<content>
<layer>background</layer>
<id>2</id>
<text><span class="style2">ard field id 23</span></text>
</content>
<content>
<layer>background</layer>
<id>4</id>
<text>on mouseDown put sounddigitizerinfo() into lists if lists is empty then put empty into me exit mouseDown end if repeat with i = 1 to the number of lines of lists put item 1 of line i of lists into line i of lists end repeat put the clickloc into xy add 5 to item 1 of xy add -8 to item 2 of xy get popup(lists,xy) if it is 0 then exit mouseDown put line it of lists into me setsounddigitizer(me) if there is not a window "grab window" then exit mouseDown set sounddigitizer of window "grab window" to meend mouseDown</text>
</content>
<content>
<layer>background</layer>
<id>8</id>
<text><span class="style2">.01</span></text>
</content>
<content>
<layer>background</layer>
<id>5</id>
<text>QuickTime Extension</text>
</content>
<name></name>
<script></script>
</card>
card_5528.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text>on mouseDown if there is not a window "grab window" then setupvideoBtn setupSoundBtn exit mouseDown end if put the videosignallist of window "grab window" into lists put replace(",",";",lists) into lists put the clickloc into xy add 5 to item 1 of xy add -8 to item 2 of xy get popup(lists,xy) if it is 0 then exit mouseDown put replace(";",return,lists) into lists put line it of lists into me set videosignal of window "grab window" to line it of listsend mouseDown</text>
</content>
<content>
<layer>background</layer>
<id>1</id>
<text>4414</text>
</content>
<content>
<layer>background</layer>
<id>2</id>
<text><span class="style2">ard field id 16</span></text>
</content>
<content>
<layer>background</layer>
<id>4</id>
<text>on mouseDown if there is not a window "grab window" then setupvideoBtn setupSoundBtn exit mouseDown end if put the videosignallist of window "grab window" into lists put the clickloc into xy add 5 to item 1 of xy add -8 to item 2 of xy get popup(lists,xy) if it is 0 then exit mouseDown put item it of lists into me set videosignal of window "grab window" to item it of listsend mouseDown</text>
</content>
<content>
<layer>background</layer>
<id>5</id>
<text>QuickTime Extension</text>
</content>
<content>
<layer>background</layer>
<id>8</id>
<text><span class="style2">.01</span></text>
</content>
<name></name>
<script></script>
</card>
card_5310.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style2">ard field id 15</span></text>
</content>
<content>
<layer>background</layer>
<id>3</id>
<text>on mouseDown global gQuickTimeStatus put componentInfo("vdig") into vlist if vlist is empty then exit mouseDown repeat with i = 1 to the number of lines of vlist put item 1 of line i of vlist into line i of popuplist end repeat repeat with i = 1 to the number of chars of popuplist if char i of popuplist is return then put ";" into char i of popuplist end repeat put the clickloc into xy add 5 to item 1 of xy add -8 to item 2 of xy get popup(popuplist,xy) if it is 0 then exit mouseDown put item 3 of line it of vlist into line 2 of me put item 3 of line it of vlist into item 1 of line 2 ofツャ gQuickTimeStatus put item 1 of line it of vlist into line 1 of me if there is a window "grab window" then set vdig of window "grab window" to item 3 of line it of vlist end if end mouseDown</text>
</content>
<content>
<layer>background</layer>
<id>4</id>
<text>on mouseDown global gQuickTimeStatus put componentInfo("vdig") into vlist if vlist is empty then exit mouseDown repeat with i = 1 to the number of lines of vlist put item 1 of line i of vlist into line i of popuplist end repeat put the clickloc into xy add 5 to item 1 of xy add -8 to item 2 of xy get popup(popuplist,xy) if it is 0 then exit mouseDown put item 3 of line it of vlist into line 2 of me put item 3 of line it of vlist into item 1 of line 2 ofツャ gQuickTimeStatus put item 1 of line it of vlist into line 1 of me if there is a window "grab window" then set vdig of window "grab window" to item 3 of line it of vlist end if end mouseDown</text>
</content>
<content>
<layer>background</layer>
<id>5</id>
<text>QuickTime Extension</text>
</content>
<content>
<layer>background</layer>
<id>8</id>
<text><span class="style2">.01</span></text>
</content>
<name></name>
<script></script>
</card>
card_4862.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >
<text><span class="style2">ard field id 2</span></text>
</content>
<content>
<layer>background</layer>
<id>3</id>
<text>on mouseDown if there is not a window "grab window" then setupvideoBtn setupSoundBtn exit mouseDown end if put videoInputList of window "grab window" into lists put replace(",",";",lists) into lists put the clickloc into xy add 5 to item 1 of xy add -8 to item 2 of xy get popup(lists,xy) if it is 0 then exit mouseDown put replace(";",return,lists) into lists put line it of lists into me set videoinput of window "grab window" to itend mouseDown</text>
</content>
<content>
<layer>background</layer>
<id>4</id>
<text>on mouseDown if there is not a window "grab window" then setupvideoBtn setupSoundBtn exit mouseDown end if put videoInputList of window "grab window" into lists put the clickloc into xy add 5 to item 1 of xy add -8 to item 2 of xy get popup(lists,xy) if it is 0 then exit mouseDown put item it of lists into me set videoinput of window "grab window" to itend mouseDown</text>
</content>
<content>
<layer>background</layer>
<id>5</id>
<text>QuickTime Extension</text>
</content>
<content>
<layer>background</layer>
<id>8</id>
<text><span class="style2">.01</span></text>
</content>
<name></name>
<script></script>
</card>
card_4279.xml
<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE card PUBLIC "-//Apple, Inc.//DTD card V 2.0//EN" "" >